perm filename Q.DAT[SCR,LCS] blob
sn#196558 filedate 1976-01-15 generic text, type T, neo UTF8
00100 RCDFLG←-1;
00300
00400 < Z .DAT -- RANDOM NUMBER= 1
00500 PLAY;
00600 TOOT 0.000 0.210 261.628 800.000 F1 F3 0.000 0.000 0.000 0.000
00700 0.000 19.000
00800 ;PRINT(P1);< TOOT 1
00900 BUZZ 0.000 0.330 261.628 1200.000 F2 0.000 0.000 0.000 F6 0.000
01000 0.000 12.000
01100 ;PRINT(P1);< BUZZ 1
01200 TOOT 0.210 0.210 271.349 800.000 F1 F3 0.000 0.000 0.000 0.000
01300 1.000 19.000
01400 ;PRINT(P1);< TOOT 2
01500 BUZZ 0.330 0.330 277.185 1200.000 F2 0.000 0.000 0.000 F6 0.000
01600 1.000 12.000
01700 ;PRINT(P1);< BUZZ 2
01800 TOOT 0.420 0.210 281.431 800.000 F1 F3 0.000 0.000 0.000 0.000
01900 2.000 19.000
02000 ;PRINT(P1);< TOOT 3
02100 TOOT 0.630 0.210 291.887 800.000 F1 F3 0.000 0.000 0.000 0.000
02200 3.000
02300 ;PRINT(P1);< TOOT 4
02400 BUZZ 0.660 0.330 293.668 1200.000 F2 0.000 0.000 0.000 F6 0.000
02500 2.000 12.000
02600 ;PRINT(P1);< BUZZ 3
02700 TOOT 0.840 0.210 302.733 800.000 F1 F3 0.000 0.000 0.000 0.000
02800 4.000 19.000
02900 ;PRINT(P1);< TOOT 5
03000 BUZZ 0.990 0.340 311.130 1200.000 F2 0.000 0.000 0.000 F6 0.000
03100 3.000 12.000
03200 ;PRINT(P1);< BUZZ 4
03300 TOOT 1.050 0.210 313.981 800.000 F1 F3 0.000 0.000 0.000 0.000
03400 5.000 19.000
03500 ;PRINT(P1);< TOOT 6
03600 TOOT 1.260 0.210 325.647 800.000 F1 F3 0.000 0.000 0.000 0.000
03700 6.000
03800 ;PRINT(P1);< TOOT 7
03900 BUZZ 1.330 0.330 329.631 1200.000 F2 0.000 0.000 0.000 F6 0.000
04000 4.000 12.000
04100 ;PRINT(P1);< BUZZ 5
04200 TOOT 1.470 0.210 337.746 800.000 F1 F3 0.000 0.000 0.000 0.000
04300 7.000 19.000
04400 ;PRINT(P1);< TOOT 8
04500 BUZZ 1.660 0.330 349.232 1200.000 F2 0.000 0.000 0.000 F6 0.000
04600 5.000 12.000
04700 ;PRINT(P1);< BUZZ 6
04800 TOOT 1.680 0.210 350.295 800.000 F1 F3 0.000 0.000 0.000 0.000
04900 8.000 19.000
05000 ;PRINT(P1);< TOOT 9
05100 TOOT 1.890 0.210 363.310 800.000 F1 F3 0.000 0.000 0.000 0.000
05200 9.000
05300 ;PRINT(P1);< TOOT 10
05400 BUZZ 1.990 0.340 369.998 1200.000 F2 0.000 0.000 0.000 F6 0.000
05500 6.000 12.000
05600 ;PRINT(P1);< BUZZ 7
05700 TOOT 2.100 0.210 376.809 800.000 F1 F3 0.000 0.000 0.000 0.000
05800 10.000 19.000
05900 ;PRINT(P1);< TOOT 11
06000 TOOT 2.310 0.210 390.809 800.000 F1 F3 0.000 0.000 0.000 0.000
06100 11.000
06200 ;PRINT(P1);< TOOT 12
06300 BUZZ 2.330 0.330 391.999 1200.000 F2 0.000 0.000 0.000 F6 0.000
06400 7.000 12.000
06500 ;PRINT(P1);< BUZZ 8
06600 TOOT 2.520 0.210 405.330 800.000 F1 F3 0.000 0.000 0.000 0.000
06700 12.000 19.000
06800 ;PRINT(P1);< TOOT 13
06900 BUZZ 2.660 0.330 415.309 1200.000 F2 0.000 0.000 0.000 F6 0.000
07000 8.000 12.000
07100 ;PRINT(P1);< BUZZ 9
07200 TOOT 2.730 0.210 420.390 800.000 F1 F3 0.000 0.000 0.000 0.000
07300 13.000 19.000
07400 ;PRINT(P1);< TOOT 14
07500 TOOT 2.940 0.210 436.009 800.000 F1 F3 0.000 0.000 0.000 0.000
07600 14.000
07700 ;PRINT(P1);< TOOT 15
07800 BUZZ 2.990 0.340 440.004 1200.000 F2 0.000 0.000 0.000 F6 0.000
07900 9.000 12.000
08000 ;PRINT(P1);< BUZZ 10
08100 TOOT 3.150 0.210 452.209 800.000 F1 F3 0.000 0.000 0.000 0.000
08200 15.000 19.000
08300 ;PRINT(P1);< TOOT 16
08400 BUZZ 3.330 0.330 466.168 1200.000 F2 0.000 0.000 0.000 F6 0.000
08500 10.000 12.000
08600 ;PRINT(P1);< BUZZ 11
08700 TOOT 3.360 0.210 469.011 800.000 F1 F3 0.000 0.000 0.000 0.000
08800 16.000 19.000
08900 ;PRINT(P1);< TOOT 17
09000 TOOT 3.570 0.210 486.437 800.000 F1 F3 0.000 0.000 0.000 0.000
09100 17.000
09200 ;PRINT(P1);< TOOT 18
09300 BUZZ 3.660 0.330 493.888 1200.000 F2 0.000 0.000 0.000 F6 0.000
09400 11.000 12.000
09500 ;PRINT(P1);< BUZZ 12
09600 TOOT 3.780 0.220 504.511 800.000 F1 F3 0.000 0.000 0.000 0.000
09700 18.000 19.000
09800 ;PRINT(P1);< TOOT 19
09900 BUZZ 3.990 1.000 523.256 1200.000 F2 0.000 0.000 0.000 F6 0.000
10000 12.000 12.000
10100 ;PRINT(P1);< BUZZ 13
10200 TOOT 4.000 1.000 523.256 800.000 F1 F3 0.000 0.000 0.000 0.000
10300 19.000 19.000
10400 ;PRINT(P1);< TOOT 20
10500 FINISH; < Z .DAT